home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 September / macformat-094.iso / MacFormat CD / MacFormatShareware / Internal_1.ls < prev    next >
Encoding:
Text File  |  2000-07-21  |  419 b   |  20 lines
  1. on prepareMovie
  2.   global gAdvertCounter, gAdvert, gAdvertTotal
  3.   sprite(12).member = member(gAdvert, "Advert")
  4.   updateStage()
  5. end
  6.  
  7. on AdChange
  8.   global gAdvertCounter, gAdvert, gAdvertTotal
  9.   if gAdvert = gAdvertTotal then
  10.     gAdvert = 1
  11.   else
  12.     if gAdvert < gAdvertTotal then
  13.       gAdvert = gAdvert + 1
  14.     end if
  15.   end if
  16.   sprite(12).member = member(gAdvert, "Advert")
  17.   updateStage()
  18.   gAdvertCounter = 0
  19. end
  20.